home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / qr2demo.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  1.4 KB  |  36 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8. //---------------------------------------------------------------------------
  9. USEFILE("readme.txt");
  10. USEFORM("grplist.cpp", GrpListForm);
  11. USEFORM("list.cpp", ListForm);
  12. USEFORM("manygrp.cpp", ManyGrpForm);
  13. USEFORM("MD.cpp", MDForm);
  14. USEFORM("menu.cpp", MainForm);
  15. USERES("qr2demo.res");
  16. //---------------------------------------------------------------------------
  17. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  18. {
  19.         try
  20.         {
  21.            Application->Initialize();
  22.            Application->CreateForm(__classid(TMainForm), &MainForm);
  23.            Application->CreateForm(__classid(TListForm), &ListForm);
  24.            Application->CreateForm(__classid(TGrpListForm), &GrpListForm);
  25.            Application->CreateForm(__classid(TMDForm), &MDForm);
  26.            Application->CreateForm(__classid(TManyGrpForm), &ManyGrpForm);
  27.            Application->Run();
  28.         }
  29.         catch (Exception &exception)
  30.         {
  31.            Application->ShowException(&exception);
  32.         }
  33.         return 0;
  34. }
  35. //---------------------------------------------------------------------------
  36.